home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / asyncom.arc / SEND.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1987-07-09  |  616 b   |  21 lines
  1. 10  DEFINT A-Z
  2. 20  TV$=CHR$(255)
  3. 30  OPEN "com1:9600,n,8,1,rs,cs,ds,cd" AS #1
  4. 40  IF LF THEN 210 ELSE INPUT"File to send";F$:IF F$="" THEN 140 ELSE F$=LEFT$(F$+SPACE$(12),12)
  5. 45  T=INSTR(1,F$,"."):IF T>0 THEN T$=MID$(F$,T+1,3):IF T$="SND" OR T$="snd" THEN LF=1:GOTO 200
  6. 50  OPEN F$ FOR INPUT AS #2:CLOSE 2:OPEN F$ AS #2 LEN=128
  7. 60  FIELD#2, 128 AS B$
  8. 70  L!=LOF(2):T$=MKS$(L!)
  9. 80  PRINT #1, TV$;F$;T$;
  10. 90  IF LOC(1)=0 THEN 90
  11. 100  T$=INPUT$(1,#1):IF T$<>TV$ THEN 90
  12. 110  T!=0:PRINT "    Sending";L!;"bytes...."
  13. 120  GET#2:T!=T!+128:IF T!<L! THEN PRINT #1, B$;:GOTO 120
  14. 130  PRINT #1, LEFT$(B$,128-(T!-L!));:CLOSE 2:GOTO 40
  15. 140  CLOSE
  16. 150  SYSTEM
  17. 200  OPEN F$ FOR INPUT AS #3
  18. 210  IF EOF(3) THEN LF=0:CLOSE 3:GOTO 40
  19. 220  INPUT#3, F$:F$=LEFT$(F$,8)+"."+MID$(F$,10,3):PRINT F$
  20. 230  GOTO 50
  21.